از این کد برای undo در  memo استفاده می شود

 Memo1.Perform(EM_UNDO, 0, 0);

از این کد برای منتقل کردن focus به کنترل بعدی استفاده می شود

begin

  if Key = #13 then                          { if it"s an enter key }
  begin
      Key := #0;                                 { eat enter key }
      Perform(WM_NEXTDLGCTL, 0, 0);              { move to next control }
  end
end;

برای اجرای برنامه ها از طریق کد نویسی

WinExec(PChar("notepad.exe"),SW_SHOWNORMAL); {Ejecuta el Notepad.Exe}

برای نمایش popup menu به وسیله کد

PopUpMenu1.popup(100,100)

Speed test